inherited frmMnfExpenditureBill: TfrmMnfExpenditureBill
  Left = 511
  Top = 155
  Caption = #29983#20135#36153#29992#20998#25674
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlDBCtrl: TPanel
    inherited pnlThirdtrade: TPanel
      inherited edtTTtraderid: TcxDBLookupComboBox
        ExplicitHeight = 20
      end
      inherited lblTTtraderid: TcxLabel
        AnchorX = 78
      end
      inherited cxLabel1: TcxLabel
        Left = 216
        ExplicitLeft = 216
        AnchorX = 244
      end
      inherited edtTTamount: TcxDBCalcEdit
        ExplicitHeight = 20
      end
      inherited edtTTremark: TcxDBTextEdit
        ExplicitHeight = 20
      end
      inherited edtTTBalanceid: TcxDBLookupComboBox
        ExplicitHeight = 20
      end
      inherited edtTTAccountid: TcxDBLookupComboBox
        ExplicitHeight = 20
      end
      inherited lblTTBalanceid: TcxLabel
        Left = 381
        ExplicitLeft = 381
        AnchorX = 433
      end
      inherited edtTTBalanceamt: TcxDBCalcEdit
        ExplicitHeight = 20
      end
    end
    inherited lblName: TcxLabel
      Style.IsFontAssigned = True
    end
    inherited edtDate: TcxDBDateEdit
      ExplicitHeight = 20
    end
    inherited edtCode: TcxDBTextEdit
      ExplicitHeight = 20
    end
    inherited DtlPageCtrl: TcxPageControl
      inherited tabMain: TcxTabSheet
        ExplicitWidth = 872
        inherited DtlGrid: TcxGrid
          RootLevelOptions.DetailTabsPosition = dtpTop
          object viewProduct: TcxGridDBBandedTableView [2]
            Navigator.Buttons.CustomButtons = <>
            DataController.DataSource = dsProduct
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            OptionsBehavior.FocusCellOnTab = True
            OptionsBehavior.GoToNextCellOnEnter = True
            OptionsBehavior.FocusCellOnCycle = True
            OptionsData.Deleting = False
            OptionsData.DeletingConfirmation = False
            OptionsData.Editing = False
            OptionsData.Inserting = False
            OptionsView.GroupByBox = False
            OptionsView.BandHeaders = False
            Styles.Background = bsBackGroup
            Styles.ContentEven = bsEven
            Styles.ContentOdd = bsOdd
            Styles.Footer = bsTitle
            Styles.Header = bsTitle
            Styles.Indicator = bsBackGroup
            Styles.Selection = bsSelect
            Styles.BandBackground = bsBackGroup
            Styles.BandHeader = bsTitle
            Bands = <
              item
              end>
            object viewProductp_code: TcxGridDBBandedColumn
              DataBinding.FieldName = 'p_code'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 0
              Position.RowIndex = 0
            end
            object viewProductp_name: TcxGridDBBandedColumn
              DataBinding.FieldName = 'p_name'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 1
              Position.RowIndex = 0
            end
            object viewProductp_spec: TcxGridDBBandedColumn
              DataBinding.FieldName = 'p_spec'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 2
              Position.RowIndex = 0
            end
            object viewProductUnitName: TcxGridDBBandedColumn
              DataBinding.FieldName = 'UnitName'
              Width = 50
              Position.BandIndex = 0
              Position.ColIndex = 3
              Position.RowIndex = 0
            end
            object viewProductquantity: TcxGridDBBandedColumn
              DataBinding.FieldName = 'quantity'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 4
              Position.RowIndex = 0
            end
            object viewProductAmount: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Amount'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 5
              Position.RowIndex = 0
            end
            object viewProductrawmaterialscost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'rawmaterialscost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 6
              Position.RowIndex = 0
            end
            object viewProductmanhour: TcxGridDBBandedColumn
              DataBinding.FieldName = 'manhour'
              Width = 50
              Position.BandIndex = 0
              Position.ColIndex = 7
              Position.RowIndex = 0
            end
            object viewProductLabourcost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Labourcost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 8
              Position.RowIndex = 0
            end
            object viewProductpowercost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'powercost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 9
              Position.RowIndex = 0
            end
            object viewProductElectricpowercost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Electricpowercost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 10
              Position.RowIndex = 0
            end
            object viewProductAssistantcost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Assistantcost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 11
              Position.RowIndex = 0
            end
            object viewProductmakecost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'makecost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 12
              Position.RowIndex = 0
            end
            object viewProductpriorperiodcost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'priorperiodcost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 13
              Position.RowIndex = 0
            end
            object viewProductOthercost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Othercost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 14
              Position.RowIndex = 0
            end
          end
          object viewWorker: TcxGridDBBandedTableView [3]
            Navigator.Buttons.CustomButtons = <>
            DataController.DataSource = dsWorker
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            OptionsBehavior.FocusCellOnTab = True
            OptionsBehavior.GoToNextCellOnEnter = True
            OptionsBehavior.FocusCellOnCycle = True
            OptionsData.Deleting = False
            OptionsData.DeletingConfirmation = False
            OptionsData.Editing = False
            OptionsData.Inserting = False
            OptionsView.GroupByBox = False
            OptionsView.BandHeaders = False
            Styles.Background = bsBackGroup
            Styles.ContentEven = bsEven
            Styles.ContentOdd = bsOdd
            Styles.Footer = bsTitle
            Styles.Header = bsTitle
            Styles.Indicator = bsBackGroup
            Styles.Selection = bsSelect
            Styles.BandBackground = bsBackGroup
            Styles.BandHeader = bsTitle
            Bands = <
              item
              end>
            object viewWorkerEmpCode: TcxGridDBBandedColumn
              DataBinding.FieldName = 'EmpCode'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 0
              Position.RowIndex = 0
            end
            object viewWorkerEmpName: TcxGridDBBandedColumn
              DataBinding.FieldName = 'EmpName'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 1
              Position.RowIndex = 0
            end
            object viewWorkerp_code: TcxGridDBBandedColumn
              DataBinding.FieldName = 'p_code'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 2
              Position.RowIndex = 0
            end
            object viewWorkerp_name: TcxGridDBBandedColumn
              DataBinding.FieldName = 'p_name'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 3
              Position.RowIndex = 0
            end
            object viewWorkerp_spec: TcxGridDBBandedColumn
              DataBinding.FieldName = 'p_spec'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 4
              Position.RowIndex = 0
            end
            object viewWorkerUnitName: TcxGridDBBandedColumn
              DataBinding.FieldName = 'UnitName'
              Width = 50
              Position.BandIndex = 0
              Position.ColIndex = 5
              Position.RowIndex = 0
            end
            object viewWorkerquantity: TcxGridDBBandedColumn
              DataBinding.FieldName = 'quantity'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 6
              Position.RowIndex = 0
            end
            object viewWorkerAmount: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Amount'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 7
              Position.RowIndex = 0
            end
            object viewWorkermanhour: TcxGridDBBandedColumn
              DataBinding.FieldName = 'manhour'
              Width = 50
              Position.BandIndex = 0
              Position.ColIndex = 8
              Position.RowIndex = 0
            end
            object viewWorkerrawMaterialscost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'rawMaterialscost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 9
              Position.RowIndex = 0
            end
            object viewWorkerLabourcost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Labourcost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 10
              Position.RowIndex = 0
            end
            object viewWorkerpowercost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'powercost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 11
              Position.RowIndex = 0
            end
            object viewWorkerElectricpowercost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Electricpowercost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 12
              Position.RowIndex = 0
            end
            object viewWorkerAssistantcost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Assistantcost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 13
              Position.RowIndex = 0
            end
            object viewWorkermakecost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'makecost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 14
              Position.RowIndex = 0
            end
            object viewWorkerpriorperiodcost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'priorperiodcost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 15
              Position.RowIndex = 0
            end
            object viewWorkerOthercost: TcxGridDBBandedColumn
              DataBinding.FieldName = 'Othercost'
              Width = 80
              Position.BandIndex = 0
              Position.ColIndex = 16
              Position.RowIndex = 0
            end
          end
          object lvlProduct: TcxGridLevel
            Caption = #25353#36135#21697
            GridView = viewProduct
          end
          object lvlWorker: TcxGridLevel
            Caption = #25353#24037#20154
            GridView = viewWorker
          end
        end
      end
    end
    inherited edtCreate_time: TcxDBTimeEdit
      ExplicitHeight = 20
    end
    inherited lblPrinted: TcxLabel
      Style.IsFontAssigned = True
    end
    inherited dynlblCreate_by: TcxLabel
      AnchorX = 221
    end
    inherited dynedtCreate_by: TcxDBLookupComboBox
      ExplicitHeight = 20
    end
    inherited dynlblCheck_by: TcxLabel
      AnchorX = 429
    end
    inherited dynedtCheck_by: TcxDBLookupComboBox
      ExplicitHeight = 20
    end
    inherited dynlblFilid: TcxLabel
      AnchorX = 88
    end
    inherited dynedtFilid: TcxDBLookupComboBox
      ExplicitHeight = 20
    end
    inherited dynlblDeptid: TcxLabel
      AnchorX = 301
    end
    inherited dynedtDeptid: TcxDBLookupComboBox
      ExplicitHeight = 20
    end
    inherited dynlblEmpid: TcxLabel
      AnchorX = 505
    end
    inherited dynedtEmpid: TcxDBLookupComboBox
      ExplicitHeight = 20
    end
    inherited dynlblBKind: TcxLabel
      AnchorX = 149
    end
    inherited dynedtBKind: TcxDBLookupComboBox
      ExplicitHeight = 20
    end
  end
  inherited Panel1: TPanel
    inherited labFuncName: TcxLabel
      Style.IsFontAssigned = True
    end
    inherited labFuncDesc: TcxLabel
      Style.IsFontAssigned = True
    end
  end
  inherited pnlTop: TPanel
    inherited edtPrint: TcxLookupComboBox
      ExplicitHeight = 20
    end
  end
  inherited pnlBottom: TPanel
    inherited lblDepotQty: TcxLabel
      Style.IsFontAssigned = True
    end
    inherited barBill: TcxProgressBar
      ExplicitHeight = 20
    end
  end
  inherited cxStyleRepository1: TcxStyleRepository
    PixelsPerInch = 96
    inherited cxGridBandedTableViewStyleSheet1: TcxGridBandedTableViewStyleSheet
      BuiltIn = True
    end
  end
  object qryDtlProduct: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select m.productid,'
      '  p.Code As p_code, p.Name As p_name, p.spec p_spec,'
      '  u.UnitName,'
      '        Sum(m.quantity) As quantity,'
      '        sum(m.amount) As Amount,'
      '        sum(isnull(f.rawmaterialscost,0)) As rawmaterialscost,'
      '        Sum(m.manhour) As manhour,'
      '        Sum(m.Labourcost) As Labourcost ,'
      '        Sum(m.powercost) As powercost ,'
      '        Sum(m.Electricpowercost) As Electricpowercost ,'
      '        Sum(m.Assistantcost) As Assistantcost ,'
      '        Sum(m.makecost) As makecost,'
      '        Sum(m.priorperiodcost)  As priorperiodcost,'
      '        Sum(m.Othercost) As Othercost,'
      '        Count(*) As DtlCount'
      'From tb_mnfexpendituredtl m'
      ' Left Join td_product p on m.productid=p.p_id'
      
        ' Left Join td_unitprice u on m.productid = u.productid and m.Uni' +
        'tID = u.UnitID'
      
        ' Left Join (select 1020 as btype,fd.bid,fd.bno,fd.productid,sum(' +
        'fd.rawmaterialscost) as rawmaterialscost'
      
        ' from tb_mnfcheckacceptdtl fd  group by fd.bid,fd.bno,fd.product' +
        'id'
      ' union'
      
        '           select 1050 as btype, wd.bid,wd.bno,wd.productid,sum(' +
        'wd.rawmaterialscost+wd.assignamount) as rawmaterialscost'
      ' from tb_mnfmakingdtl wd'
      ' group by wd.bid,wd.bno,wd.productid'
      ' )'
      
        ' f on m.relationbid=f.BID and m.relationbtype=f.btype and m.rela' +
        'tionbno=f.bno'
      ' where m.BID=:BID'
      ' Group By m.productid, p.code, p.name, p.spec, u.UnitName')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 532
    Top = 201
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BID'
        Value = nil
      end>
    object qryDtlProductproductid: TIntegerField
      FieldName = 'productid'
    end
    object qryDtlProductp_code: TStringField
      DisplayLabel = #36135#21697#32534#30721
      FieldName = 'p_code'
      Size = 40
    end
    object qryDtlProductp_name: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'p_name'
      Size = 60
    end
    object qryDtlProductp_spec: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'p_spec'
      Size = 60
    end
    object qryDtlProductUnitName: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitName'
      Size = 40
    end
    object qryDtlProductquantity: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'quantity'
      ReadOnly = True
    end
    object qryDtlProductAmount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'Amount'
      ReadOnly = True
    end
    object qryDtlProductrawmaterialscost: TFloatField
      DisplayLabel = #26448#26009#25104#26412
      FieldName = 'rawmaterialscost'
      ReadOnly = True
    end
    object qryDtlProductmanhour: TFloatField
      DisplayLabel = #32791#29992#24037#26102
      FieldName = 'manhour'
      ReadOnly = True
    end
    object qryDtlProductLabourcost: TFloatField
      DisplayLabel = #20154#21147#25104#26412
      FieldName = 'Labourcost'
      ReadOnly = True
    end
    object qryDtlProductpowercost: TFloatField
      DisplayLabel = #21160#21147#25104#26412
      FieldName = 'powercost'
      ReadOnly = True
    end
    object qryDtlProductElectricpowercost: TFloatField
      DisplayLabel = #27700#30005#25104#26412
      FieldName = 'Electricpowercost'
      ReadOnly = True
    end
    object qryDtlProductAssistantcost: TFloatField
      DisplayLabel = #36741#21161#25104#26412
      FieldName = 'Assistantcost'
      ReadOnly = True
    end
    object qryDtlProductmakecost: TFloatField
      DisplayLabel = #21046#36896#36153#29992
      FieldName = 'makecost'
      ReadOnly = True
    end
    object qryDtlProductpriorperiodcost: TFloatField
      DisplayLabel = #19978#26399#25104#26412
      FieldName = 'priorperiodcost'
      ReadOnly = True
    end
    object qryDtlProductOthercost: TFloatField
      DisplayLabel = #20854#20182#25104#26412
      FieldName = 'Othercost'
      ReadOnly = True
    end
    object qryDtlProductDtlCount: TIntegerField
      FieldName = 'DtlCount'
      ReadOnly = True
    end
  end
  object qryDtlWorker: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      '  Select f.empid,'
      '    e.em_code As EmpCode, e.em_name as EmpName,'
      
        '    m.productid, p.code As p_code, p.name As p_name, p.spec p_sp' +
        'ec, u.UnitName,'
      '    Sum(m.quantity) As quantity,'
      '    sum(m.amount) As Amount,'
      '    Sum(m.manhour) As manhour,'
      '    Sum(f.rawMaterialscost) As rawMaterialscost ,'
      '    Sum(m.Labourcost) As Labourcost ,'
      '    Sum(m.powercost) As powercost ,'
      '    Sum(m.Electricpowercost) As Electricpowercost ,'
      '    Sum(m.Assistantcost) As Assistantcost ,'
      '    Sum(m.makecost) As makecost,'
      '    Sum(m.priorperiodcost)  As priorperiodcost,'
      '    Sum(m.Othercost) As Othercost,'
      '    Count(*) As DtlCount'
      'From tb_mnfexpendituredtl m'
      'Left Join td_product p on m.productid=p.p_id'
      
        'Left Join td_unitprice u on m.productid=u.productid and m.UnitID' +
        ' = u.UnitID'
      
        'Left Join  (select 1020 as btype,fm.bid,fd.bno,sum(fd.rawMateria' +
        'lscost) as rawMaterialscost,fd.Empid'
      
        'from tb_mnfcheckaccept fm,tb_mnfcheckacceptdtl fd where fm.bid=f' +
        'd.bid group by fm.bid,fd.empid,fd.bno'
      
        'union  select 1050 as btype,wm.bid,wd.bno,sum(wd.rawMaterialscos' +
        't+wd.assignamount) as rawMaterialscost,od.Empid'
      
        'from tb_mnfmaking wm,tb_mnfmakingdtl wd,tb_mnfmachining o,tb_mnf' +
        'machiningdtl od where wm.bid=wd.bid and wd.relationbid=o.bid and' +
        ' o.bid=od.bid and wd.relationbno=od.bno'
      'group by wm.bid,od.empid,wd.bno'
      '  ) f '
      
        'on m.relationbid=f.BID and m.relationbtype=f.btype and m.relatio' +
        'nbno=f.bno'
      'Left Join  td_empmaster e on f.EmpID=e.em_employeeid'
      'where m.BID=:BID'
      
        'Group By f.empid,e.em_code, e.em_name, m.productid, p.code, p.na' +
        'me, p.spec, u.UnitName')
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 532
    Top = 257
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BID'
        Value = nil
      end>
    object qryDtlWorkerempid: TIntegerField
      FieldName = 'empid'
    end
    object qryDtlWorkerEmpCode: TWideStringField
      DisplayLabel = #29983#20135#24037#20154#32534#30721
      FieldName = 'EmpCode'
      Size = 40
    end
    object qryDtlWorkerEmpName: TWideStringField
      DisplayLabel = #24037#20154#21517#31216
      FieldName = 'EmpName'
      Size = 60
    end
    object qryDtlWorkerproductid: TIntegerField
      FieldName = 'productid'
    end
    object qryDtlWorkerp_code: TStringField
      DisplayLabel = #36135#21697#32534#30721
      FieldName = 'p_code'
      Size = 40
    end
    object qryDtlWorkerp_name: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'p_name'
      Size = 60
    end
    object qryDtlWorkerp_spec: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'p_spec'
      Size = 60
    end
    object qryDtlWorkerUnitName: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitName'
      Size = 40
    end
    object qryDtlWorkerquantity: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'quantity'
      ReadOnly = True
    end
    object qryDtlWorkerAmount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'Amount'
      ReadOnly = True
    end
    object qryDtlWorkermanhour: TFloatField
      DisplayLabel = #32791#29992#24037#26102
      FieldName = 'manhour'
      ReadOnly = True
    end
    object qryDtlWorkerrawMaterialscost: TFloatField
      DisplayLabel = #26448#26009#25104#26412
      FieldName = 'rawMaterialscost'
      ReadOnly = True
    end
    object qryDtlWorkerLabourcost: TFloatField
      DisplayLabel = #20154#24037#25104#26412
      FieldName = 'Labourcost'
      ReadOnly = True
    end
    object qryDtlWorkerpowercost: TFloatField
      DisplayLabel = #21160#21147#25104#26412
      FieldName = 'powercost'
      ReadOnly = True
    end
    object qryDtlWorkerElectricpowercost: TFloatField
      DisplayLabel = #27700#30005#25104#26412
      FieldName = 'Electricpowercost'
      ReadOnly = True
    end
    object qryDtlWorkerAssistantcost: TFloatField
      DisplayLabel = #36741#21161#25104#26412
      FieldName = 'Assistantcost'
      ReadOnly = True
    end
    object qryDtlWorkermakecost: TFloatField
      DisplayLabel = #21046#36896#36153#29992
      FieldName = 'makecost'
      ReadOnly = True
    end
    object qryDtlWorkerpriorperiodcost: TFloatField
      DisplayLabel = #19978#26399#25104#26412
      FieldName = 'priorperiodcost'
      ReadOnly = True
    end
    object qryDtlWorkerOthercost: TFloatField
      DisplayLabel = #20854#20182#25104#26412
      FieldName = 'Othercost'
      ReadOnly = True
    end
    object qryDtlWorkerDtlCount: TIntegerField
      FieldName = 'DtlCount'
      ReadOnly = True
    end
  end
  object dsProduct: TDataSource
    DataSet = qryDtlProduct
    Left = 600
    Top = 201
  end
  object dsWorker: TDataSource
    DataSet = qryDtlWorker
    Left = 596
    Top = 253
  end
end
